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المگال الاول : > مشغل فلاش < 


نقوم بفتح برنامج الفيجوال بيسك ۲٠٠۸‏ ونقوم بأنشاء مشروع 
کخداك 


« م 


HET Framework 3.5 
4ã Visual Basic 


A E QM & 


Smart Device Llass Library WPF WPF Browser Console Empty 
, Office 2 Application Application Application Project 
Database 


4 ت و 2 Reporting‏ 


Windows WPF Custom WPF User Windows 
WCF Service Kontrol Lib... Kontrol... Forms 1. 


Workflow 
. Visual CÊ My Templates — 


: Visual C++ 
4 Database Projects 
û Microsoft SQL Server search 
SQL-CLR Online TE... 


Distributed Systems 
Ã project for creating an application with a Windows user Interface (.NET Framework 3.5] 


Name! WindowsApplicatlion? 


Location: LMUserEcsADocumentsiVisual Studio 20081 Projects 


Solution Name: WindowsApplicationd Lreate directory for solution 


نقوم باضافة الادوات التالية : 


ShockwaveObject 
MenuStrip 


Openfiledialog 


نقوم باضافة الاداة الاولى ( اczعزطاه wave‏ )عh0ء)‏ من قائمة 
sامەt‏ نقوم بأختیار ٣۶‏ عا¡ ×oطbاooەt Choose‏ ثم سوف یظھر 
مربع حوار نقوم بأختیار com components‏ ثم نقوم بأختيار 
الاداة .. 


Choose Toolbox‏ أ 


.NET Framework Components | LUM Lomponents | WPF Components | Activities 


Name R Path Lbrary 

IH] SelectFile Class LNWindowsisystem32 LompatUl.dll LompatUl 1.0 Typ... 
ShellÃAppBar Lontrol LAN PROGEA=“ DNL OMMON A DNLOWOMNA Ss...  LogiIcNP Software... 
I | ShellLink Control CAPROGRA~ N COMMON TNCOWONMS...  LogicNP Software... 
I | ShellNaotifyIcon Control LAPROGRA~ DN COMMON DN COWONAS...  LogIcNP Software... 
اكا‎ rma Lontrol ا‎ INL OMMON = یا ا س ااافا ا ا‎ Software... 


۳ re ERNE Lontrol CAPROGRA~T\COMMON TLIO SS... TTE SOFEWATE,.. 


IC] STSUpld CopyCtl Class CAPROGRA~ DA MICROS~ 2A1 Office 4S TS... 
Synaptics API Lontrol LN Windowsisystem3ASyntktrl.dll Synaptics Device ... 
Synaptics Device Lontrol LCNWindowstisystem3iSynkLtrl.dll 
I | Svnantics Display Control LAM WindowstiswstemdASvwntktrl.dll SwYnapotics Device ... 
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Shockwave Flash Object 

Language: Language Neutral 

Version: 1.0 


ثم نقوم بأدراج الاداة على الفورم وأضافة باقي الاداوت على 
الفورم ونقوم بأضافة في مكمه" قائمة ونسمي القائمة هاا 
وأدراج عنصر واحد فيا وg Open flash file‏ 


pen flash file 


نم نقوم بالضغط المزدو ج علذı Open flash file‏ 


ونقوم بكتابة الكود التالي : 


Try 
OpenFileDialog1.Title " =Open Flash File" 
openfiledialog1l. filename ." =swf" 
openfiledialog1.filter " =all files|"*.* 


openfiledialog1.showdialog () 
AxShockwaveFlash1.Movie =openfiledialog1l. filename 
Catch ex As Exception 


Try End 


المٹال الثاني : > گي لوجر < 


نقوم بفتح مشروع جديد ونقوم بأضافة الادوات التالية : 


TextbOX 


Timer 


: ٦٥×اط‎ ٥× خصائص‎ 
True = Multiline 


True =ReadOnly 


True = Enabled 


2 = Interval 


نقوم بالضغط على التايمر ضغطتين متتالتين ثم نضع هذا الكود تحت ٥11طںم‏ 


CLASS FOEML 


Dim result As Integer 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal 


vKey As Long) As Integer 


الكود في التايمر: 


1 To 255 


result = 0 

result = GetAsyncKeyState (i) 

If result - =32767 Then 

TextBox1. Text = TextBoxl1l.Text +Chr(1 ) 
End If 


For 1 


Next 1 


ı1 Fublic Class Farmi 
Dim result As Integer 


Private Declare Function GetAsynckeystate Lib "user32" (ByVal ykey As Long) As Integer 


Private Sub Timerl Tick (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerl. Tick 


For i = Î Io 255 
1 result = Û 


reault = GetAsnckeyState (1) 
If result = -327161 Then 
TegtBaoxl.Tegt = TezxtBagkl, Text + Chr (1) 


End If 
Next 1 
End Sub 
End C1a33 


المثال الثالث : > رادير < 
نقوم باضافة الادوات التالية : 


Windows Media Player 
Button 


Textbox 


نقوم بأضافة الويندوز ميديا بلير عن طريق قائمة 
choose toolbox items pû tools‏ 


Name Path Library 

VSTOLTPHost Class CA Program Filest Common Files Micros... 

Wbocx Lontrol : LN Windows Systemd2A\wbocx,ocx wbocx ActiveX LO... 

Windows Live Upload Tool CA Program Files Windows Liwe SkyDrive... Microsoft.Live,Fol... 

Windows Mail Mime Editor CAWindowssystem32inetcomm.dll 

Windows Media Player LA Windowsisystemd3iwmp.dll Windows Media P... 
WizCombo Class CAN Program Files\Microsoft Visual Studio... VCWr 90 Type Li... 

WMIObJectBroker Llass CA Program Files Lommon Files MICrOS,., 

Yahoo! Audio Lonferencing CA Program FilesiYahoohMessengeriyac.. yacscom 1.0 Type... 

Yahoo! Audio Slider LA Program Filet Yahoo MessengeriyaC... 

Yahoo! Audio UI CA Program FilesiYahoohMessengeriyac... yacsuı LÛ Type Li... 


IF Yahoo! VU Meter CC Proaram Filet Yahoo Messenaerlwac... 
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Adobe PDF Reader 
Language: Language Neutral 


Version: 1.0 


نقوم بأدراج الادوات على الفورم كما في الشكل 


ag Form1 EFS BIBE 


pen 


نقوم بالضغط على الزر ”«#طه لاضافة الكود التالي 


text. Textboxl1l =URL .AxWindowsMediaPlayer1l 


المٹال الثالث ٠:‏ > تشغخيل ملفات الصوت < 
نقوم بأضافة الادوات التالية 


Windows Media Player 
Button 


Open fl1ile dialog 


نقوم بأدراج الادوات على الفورم ونقوم بالضغط على 
الزر مرتتين متتاليين ليتم فتح شاشة كتابة الكود 
ونقوم بوضع هذا الكود 


Openfiledialog1. showdialog () 


AxWindowsMediaPlayerl1l.URL = Openfiledialog1l. filename 


المٹال الٹالٹ : > پرنامچ پبحث < 


هذا البرنامج عبارة عن باحث في الانترنت 
نقوم بأذافة الادوات التالية 


Textbox 
Button 
Web browser 


Mıcrosoft Web Browser 


ûn Microsoft Web Browser ö5lذ|‎ جlIرداب تقوم‎ 
com pû choose toolbox items م۾û‎ tools ةnÖilق‎ 
ثم نختار الاداة‎ comPمonents‎ 


Microsoft Termin... 
Microsoft Windo... 
crosoft Windo... 
crosoft Visio Vil... 


Microsoft Visual “... 


cic L.Û Type Library 
MS Video Control ... 
rmsrtedit 1.0 Type 


Path 
CAWindows\system32\mstscax.dll 

CA Windowsisystem32\MSCOMCTL.OCX 
CA Windows\system32\MSCOMCTL.OCX 
CAPROGRA~1\MICROS~2\Officel4\ VV1... 


Filet Common Files Micros...‏ لاہ تاا شک 


CAProgram Fi FETT FTE 5 


LNWindowsisystemdAtmmcndmgr.dll 
e اا.‎ 
LN Windows SsystemdAmsvıdctl.dll 


LA PROGRA~ DN MILROS~ A UffIcEL A MS... 


Ir 


x | n || ee 


نقوم بادراج 


الادوات 


Name 

Microsoft Terminal Services Control 
Microsoft Toolbar Lontrol, version b.0 
Microsoft TreeView Lontrol, version b.0 
Î Microsoft Visio Document 

TÎ Microsoft Visual Studio Tools for Offic. 


5 Microsoft.VsualStudlo. Office Tools. Co... 
FÎ MMC IconControl class 

MMCCtrl class 

Ns TV Video Lontrol 

I | MSREdit Class 
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Microsoft Web Browser 

Language: Language Neutral 


Version 11 


على الفورم ثم نقوم 
بالضغط على الزر ونقوم بأضافة هذا 


الكود: 


Webbrowser1.Nevigate (http: //www.google.com/search?hl=ené&q= & 


textbox1. text) 


وألى هنا نصل لنهاية الموضوع راجين 
المولي أن يوفقنا جميعا 


وأنتظروا مزيد من الكتب والامثلة 


DeAd HaCkErZ2 


